Option Explicit
'u@Ҳ
Private Sub Worksheet_Activate()
    MsgBox Me.Name & "Active]ҥΡ^AC"
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    MsgBox Target.Address & "QGUFC"
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    MsgBox Target.Address & "QHƹkIFC"
End Sub

Private Sub Worksheet_Calculate()
    MsgBox Me.Name & "iFpC"
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address & "ȳQܧFC"
End Sub

Private Sub Worksheet_Deactivate()
    MsgBox Me.Name & "wgOActive]ҥΡ^AFC"
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    MsgBox Target.SubAddress & "cWsC"
    MsgBox Target.Address & "cWsC"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target.Address & "QܤFC"
End Sub
